
Imports Acceso_a_Datos.Datos

		Namespace BO
		Partial Public Class tPersonas




# Region "tMunicipios"

		private mtMunicipios As New tMunicipios

		Public Property tMunicipios As tMunicipios
        Get
                mtMunicipios = mtMunicipios.TraerFiltradoListOf("IdMunicipio", Me.IdMunicipio).Item(0)
        Return mtMunicipios
        End Get
        Set
             If ((mtMunicipios Is Nothing) Or (Me.tMunicipios.Equals(value) = False)) Then
                If Not (Me.tMunicipios Is Nothing)
	               Dim oldtMunicipios As tMunicipios = Me.tMunicipios
                   Me.mtMunicipios = Nothing
                   oldtMunicipios.RemoveListatPersonas(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtMunicipios = value
                   Me.tMunicipios.AddListatPersonas(Me)
            	End If
             End If
        End Set
       End Property

# End Region
# Region "tCapacidad_x_Persona"
	private mlistatCapacidad_x_Persona As New List (Of tCapacidad_x_Persona)
Public Property ListatCapacidad_x_Persona As System.Collections.Generic.List(Of tCapacidad_x_Persona)
Get
dim mtCapacidad_x_Persona As New tCapacidad_x_Persona
mlistatCapacidad_x_Persona =mtCapacidad_x_Persona.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatCapacidad_x_Persona
End Get
Set
RemoveAllListatCapacidad_x_Persona()
If Not (Value Is Nothing) Then
Dim otCapacidad_x_Persona As tCapacidad_x_Persona
	For Each otCapacidad_x_Persona in Value
		AddListatCapacidad_x_Persona(otCapacidad_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatCapacidad_x_Persona(newtCapacidad_x_Persona As tCapacidad_x_Persona)
	If (mlistatCapacidad_x_Persona Is Nothing) Then
		mlistatCapacidad_x_Persona = new System.Collections.Generic.List(Of tCapacidad_x_Persona)
	End If
	If Not mlistatCapacidad_x_Persona.Contains(newtCapacidad_x_Persona) Then
		mlistatCapacidad_x_Persona.Add(newtCapacidad_x_Persona)
		newtCapacidad_x_Persona.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatCapacidad_x_Persona(oldtCapacidad_x_Persona As tCapacidad_x_Persona)
	If (mlistatCapacidad_x_Persona.Contains(oldtCapacidad_x_Persona)) Then
		mlistatCapacidad_x_Persona.Remove(oldtCapacidad_x_Persona)
		oldtCapacidad_x_Persona.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatCapacidad_x_Persona()
	If Not (mlistatCapacidad_x_Persona Is Nothing)
		Dim tmp_listatCapacidad_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtCapacidad_x_Persona As tCapacidad_x_Persona
		For Each oldtCapacidad_x_Persona in mlistatCapacidad_x_Persona
			tmp_listatCapacidad_x_Persona.Add(oldtCapacidad_x_Persona)
		Next
	mlistatCapacidad_x_Persona.Clear()
	For Each oldtCapacidad_x_Persona in tmp_listatCapacidad_x_Persona
		oldtCapacidad_x_Persona = Nothing
	Next
	tmp_listatCapacidad_x_Persona.Clear()
	End If
End Sub

# End Region
# Region "tCarnet_x_Persona"
	private mlistatCarnet_x_Persona As New List (Of tCarnet_x_Persona)
Public Property ListatCarnet_x_Persona As System.Collections.Generic.List(Of tCarnet_x_Persona)
Get
dim mtCarnet_x_Persona As New tCarnet_x_Persona
mlistatCarnet_x_Persona =mtCarnet_x_Persona.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatCarnet_x_Persona
End Get
Set
RemoveAllListatCarnet_x_Persona()
If Not (Value Is Nothing) Then
Dim otCarnet_x_Persona As tCarnet_x_Persona
	For Each otCarnet_x_Persona in Value
		AddListatCarnet_x_Persona(otCarnet_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatCarnet_x_Persona(newtCarnet_x_Persona As tCarnet_x_Persona)
	If (mlistatCarnet_x_Persona Is Nothing) Then
		mlistatCarnet_x_Persona = new System.Collections.Generic.List(Of tCarnet_x_Persona)
	End If
	If Not mlistatCarnet_x_Persona.Contains(newtCarnet_x_Persona) Then
		mlistatCarnet_x_Persona.Add(newtCarnet_x_Persona)
		newtCarnet_x_Persona.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatCarnet_x_Persona(oldtCarnet_x_Persona As tCarnet_x_Persona)
	If (mlistatCarnet_x_Persona.Contains(oldtCarnet_x_Persona)) Then
		mlistatCarnet_x_Persona.Remove(oldtCarnet_x_Persona)
		oldtCarnet_x_Persona.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatCarnet_x_Persona()
	If Not (mlistatCarnet_x_Persona Is Nothing)
		Dim tmp_listatCarnet_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtCarnet_x_Persona As tCarnet_x_Persona
		For Each oldtCarnet_x_Persona in mlistatCarnet_x_Persona
			tmp_listatCarnet_x_Persona.Add(oldtCarnet_x_Persona)
		Next
	mlistatCarnet_x_Persona.Clear()
	For Each oldtCarnet_x_Persona in tmp_listatCarnet_x_Persona
		oldtCarnet_x_Persona = Nothing
	Next
	tmp_listatCarnet_x_Persona.Clear()
	End If
End Sub

# End Region
# Region "tCursos_Deseados_x_Persona"
	private mlistatCursos_Deseados_x_Persona As New List (Of tCursos_Deseados_x_Persona)
Public Property ListatCursos_Deseados_x_Persona As System.Collections.Generic.List(Of tCursos_Deseados_x_Persona)
Get
dim mtCursos_Deseados_x_Persona As New tCursos_Deseados_x_Persona
mlistatCursos_Deseados_x_Persona =mtCursos_Deseados_x_Persona.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatCursos_Deseados_x_Persona
End Get
Set
RemoveAllListatCursos_Deseados_x_Persona()
If Not (Value Is Nothing) Then
Dim otCursos_Deseados_x_Persona As tCursos_Deseados_x_Persona
	For Each otCursos_Deseados_x_Persona in Value
		AddListatCursos_Deseados_x_Persona(otCursos_Deseados_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatCursos_Deseados_x_Persona(newtCursos_Deseados_x_Persona As tCursos_Deseados_x_Persona)
	If (mlistatCursos_Deseados_x_Persona Is Nothing) Then
		mlistatCursos_Deseados_x_Persona = new System.Collections.Generic.List(Of tCursos_Deseados_x_Persona)
	End If
	If Not mlistatCursos_Deseados_x_Persona.Contains(newtCursos_Deseados_x_Persona) Then
		mlistatCursos_Deseados_x_Persona.Add(newtCursos_Deseados_x_Persona)
		newtCursos_Deseados_x_Persona.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatCursos_Deseados_x_Persona(oldtCursos_Deseados_x_Persona As tCursos_Deseados_x_Persona)
	If (mlistatCursos_Deseados_x_Persona.Contains(oldtCursos_Deseados_x_Persona)) Then
		mlistatCursos_Deseados_x_Persona.Remove(oldtCursos_Deseados_x_Persona)
		oldtCursos_Deseados_x_Persona.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatCursos_Deseados_x_Persona()
	If Not (mlistatCursos_Deseados_x_Persona Is Nothing)
		Dim tmp_listatCursos_Deseados_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtCursos_Deseados_x_Persona As tCursos_Deseados_x_Persona
		For Each oldtCursos_Deseados_x_Persona in mlistatCursos_Deseados_x_Persona
			tmp_listatCursos_Deseados_x_Persona.Add(oldtCursos_Deseados_x_Persona)
		Next
	mlistatCursos_Deseados_x_Persona.Clear()
	For Each oldtCursos_Deseados_x_Persona in tmp_listatCursos_Deseados_x_Persona
		oldtCursos_Deseados_x_Persona = Nothing
	Next
	tmp_listatCursos_Deseados_x_Persona.Clear()
	End If
End Sub

# End Region
# Region "tCursos_x_Persona"
	private mlistatCursos_x_Persona As New List (Of tCursos_x_Persona)
Public Property ListatCursos_x_Persona As System.Collections.Generic.List(Of tCursos_x_Persona)
Get
dim mtCursos_x_Persona As New tCursos_x_Persona
mlistatCursos_x_Persona =mtCursos_x_Persona.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatCursos_x_Persona
End Get
Set
RemoveAllListatCursos_x_Persona()
If Not (Value Is Nothing) Then
Dim otCursos_x_Persona As tCursos_x_Persona
	For Each otCursos_x_Persona in Value
		AddListatCursos_x_Persona(otCursos_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatCursos_x_Persona(newtCursos_x_Persona As tCursos_x_Persona)
	If (mlistatCursos_x_Persona Is Nothing) Then
		mlistatCursos_x_Persona = new System.Collections.Generic.List(Of tCursos_x_Persona)
	End If
	If Not mlistatCursos_x_Persona.Contains(newtCursos_x_Persona) Then
		mlistatCursos_x_Persona.Add(newtCursos_x_Persona)
		newtCursos_x_Persona.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatCursos_x_Persona(oldtCursos_x_Persona As tCursos_x_Persona)
	If (mlistatCursos_x_Persona.Contains(oldtCursos_x_Persona)) Then
		mlistatCursos_x_Persona.Remove(oldtCursos_x_Persona)
		oldtCursos_x_Persona.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatCursos_x_Persona()
	If Not (mlistatCursos_x_Persona Is Nothing)
		Dim tmp_listatCursos_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtCursos_x_Persona As tCursos_x_Persona
		For Each oldtCursos_x_Persona in mlistatCursos_x_Persona
			tmp_listatCursos_x_Persona.Add(oldtCursos_x_Persona)
		Next
	mlistatCursos_x_Persona.Clear()
	For Each oldtCursos_x_Persona in tmp_listatCursos_x_Persona
		oldtCursos_x_Persona = Nothing
	Next
	tmp_listatCursos_x_Persona.Clear()
	End If
End Sub

# End Region
# Region "tDiscapacidades_x_Persona"
	private mlistatDiscapacidades_x_Persona As New List (Of tDiscapacidades_x_Persona)
Public Property ListatDiscapacidades_x_Persona As System.Collections.Generic.List(Of tDiscapacidades_x_Persona)
Get
dim mtDiscapacidades_x_Persona As New tDiscapacidades_x_Persona
mlistatDiscapacidades_x_Persona =mtDiscapacidades_x_Persona.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatDiscapacidades_x_Persona
End Get
Set
RemoveAllListatDiscapacidades_x_Persona()
If Not (Value Is Nothing) Then
Dim otDiscapacidades_x_Persona As tDiscapacidades_x_Persona
	For Each otDiscapacidades_x_Persona in Value
		AddListatDiscapacidades_x_Persona(otDiscapacidades_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatDiscapacidades_x_Persona(newtDiscapacidades_x_Persona As tDiscapacidades_x_Persona)
	If (mlistatDiscapacidades_x_Persona Is Nothing) Then
		mlistatDiscapacidades_x_Persona = new System.Collections.Generic.List(Of tDiscapacidades_x_Persona)
	End If
	If Not mlistatDiscapacidades_x_Persona.Contains(newtDiscapacidades_x_Persona) Then
		mlistatDiscapacidades_x_Persona.Add(newtDiscapacidades_x_Persona)
		newtDiscapacidades_x_Persona.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatDiscapacidades_x_Persona(oldtDiscapacidades_x_Persona As tDiscapacidades_x_Persona)
	If (mlistatDiscapacidades_x_Persona.Contains(oldtDiscapacidades_x_Persona)) Then
		mlistatDiscapacidades_x_Persona.Remove(oldtDiscapacidades_x_Persona)
		oldtDiscapacidades_x_Persona.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatDiscapacidades_x_Persona()
	If Not (mlistatDiscapacidades_x_Persona Is Nothing)
		Dim tmp_listatDiscapacidades_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtDiscapacidades_x_Persona As tDiscapacidades_x_Persona
		For Each oldtDiscapacidades_x_Persona in mlistatDiscapacidades_x_Persona
			tmp_listatDiscapacidades_x_Persona.Add(oldtDiscapacidades_x_Persona)
		Next
	mlistatDiscapacidades_x_Persona.Clear()
	For Each oldtDiscapacidades_x_Persona in tmp_listatDiscapacidades_x_Persona
		oldtDiscapacidades_x_Persona = Nothing
	Next
	tmp_listatDiscapacidades_x_Persona.Clear()
	End If
End Sub

# End Region
# Region "tFamiliares"
	private mlistatFamiliares As New List (Of tFamiliares)
Public Property ListatFamiliares As System.Collections.Generic.List(Of tFamiliares)
Get
dim mtFamiliares As New tFamiliares
mlistatFamiliares =mtFamiliares.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatFamiliares
End Get
Set
RemoveAllListatFamiliares()
If Not (Value Is Nothing) Then
Dim otFamiliares As tFamiliares
	For Each otFamiliares in Value
		AddListatFamiliares(otFamiliares)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatFamiliares(newtFamiliares As tFamiliares)
	If (mlistatFamiliares Is Nothing) Then
		mlistatFamiliares = new System.Collections.Generic.List(Of tFamiliares)
	End If
	If Not mlistatFamiliares.Contains(newtFamiliares) Then
		mlistatFamiliares.Add(newtFamiliares)
		newtFamiliares.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatFamiliares(oldtFamiliares As tFamiliares)
	If (mlistatFamiliares.Contains(oldtFamiliares)) Then
		mlistatFamiliares.Remove(oldtFamiliares)
		oldtFamiliares.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatFamiliares()
	If Not (mlistatFamiliares Is Nothing)
		Dim tmp_listatFamiliares As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtFamiliares As tFamiliares
		For Each oldtFamiliares in mlistatFamiliares
			tmp_listatFamiliares.Add(oldtFamiliares)
		Next
	mlistatFamiliares.Clear()
	For Each oldtFamiliares in tmp_listatFamiliares
		oldtFamiliares = Nothing
	Next
	tmp_listatFamiliares.Clear()
	End If
End Sub

# End Region
# Region "tIdioma_x_Persona"
	private mlistatIdioma_x_Persona As New List (Of tIdioma_x_Persona)
Public Property ListatIdioma_x_Persona As System.Collections.Generic.List(Of tIdioma_x_Persona)
Get
dim mtIdioma_x_Persona As New tIdioma_x_Persona
mlistatIdioma_x_Persona =mtIdioma_x_Persona.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatIdioma_x_Persona
End Get
Set
RemoveAllListatIdioma_x_Persona()
If Not (Value Is Nothing) Then
Dim otIdioma_x_Persona As tIdioma_x_Persona
	For Each otIdioma_x_Persona in Value
		AddListatIdioma_x_Persona(otIdioma_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatIdioma_x_Persona(newtIdioma_x_Persona As tIdioma_x_Persona)
	If (mlistatIdioma_x_Persona Is Nothing) Then
		mlistatIdioma_x_Persona = new System.Collections.Generic.List(Of tIdioma_x_Persona)
	End If
	If Not mlistatIdioma_x_Persona.Contains(newtIdioma_x_Persona) Then
		mlistatIdioma_x_Persona.Add(newtIdioma_x_Persona)
		newtIdioma_x_Persona.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatIdioma_x_Persona(oldtIdioma_x_Persona As tIdioma_x_Persona)
	If (mlistatIdioma_x_Persona.Contains(oldtIdioma_x_Persona)) Then
		mlistatIdioma_x_Persona.Remove(oldtIdioma_x_Persona)
		oldtIdioma_x_Persona.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatIdioma_x_Persona()
	If Not (mlistatIdioma_x_Persona Is Nothing)
		Dim tmp_listatIdioma_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtIdioma_x_Persona As tIdioma_x_Persona
		For Each oldtIdioma_x_Persona in mlistatIdioma_x_Persona
			tmp_listatIdioma_x_Persona.Add(oldtIdioma_x_Persona)
		Next
	mlistatIdioma_x_Persona.Clear()
	For Each oldtIdioma_x_Persona in tmp_listatIdioma_x_Persona
		oldtIdioma_x_Persona = Nothing
	Next
	tmp_listatIdioma_x_Persona.Clear()
	End If
End Sub

# End Region
# Region "tIntereses_x_Persona"
	private mlistatIntereses_x_Persona As New List (Of tIntereses_x_Persona)
Public Property ListatIntereses_x_Persona As System.Collections.Generic.List(Of tIntereses_x_Persona)
Get
dim mtIntereses_x_Persona As New tIntereses_x_Persona
mlistatIntereses_x_Persona =mtIntereses_x_Persona.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatIntereses_x_Persona
End Get
Set
RemoveAllListatIntereses_x_Persona()
If Not (Value Is Nothing) Then
Dim otIntereses_x_Persona As tIntereses_x_Persona
	For Each otIntereses_x_Persona in Value
		AddListatIntereses_x_Persona(otIntereses_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatIntereses_x_Persona(newtIntereses_x_Persona As tIntereses_x_Persona)
	If (mlistatIntereses_x_Persona Is Nothing) Then
		mlistatIntereses_x_Persona = new System.Collections.Generic.List(Of tIntereses_x_Persona)
	End If
	If Not mlistatIntereses_x_Persona.Contains(newtIntereses_x_Persona) Then
		mlistatIntereses_x_Persona.Add(newtIntereses_x_Persona)
		newtIntereses_x_Persona.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatIntereses_x_Persona(oldtIntereses_x_Persona As tIntereses_x_Persona)
	If (mlistatIntereses_x_Persona.Contains(oldtIntereses_x_Persona)) Then
		mlistatIntereses_x_Persona.Remove(oldtIntereses_x_Persona)
		oldtIntereses_x_Persona.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatIntereses_x_Persona()
	If Not (mlistatIntereses_x_Persona Is Nothing)
		Dim tmp_listatIntereses_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtIntereses_x_Persona As tIntereses_x_Persona
		For Each oldtIntereses_x_Persona in mlistatIntereses_x_Persona
			tmp_listatIntereses_x_Persona.Add(oldtIntereses_x_Persona)
		Next
	mlistatIntereses_x_Persona.Clear()
	For Each oldtIntereses_x_Persona in tmp_listatIntereses_x_Persona
		oldtIntereses_x_Persona = Nothing
	Next
	tmp_listatIntereses_x_Persona.Clear()
	End If
End Sub

# End Region
# Region "tMicroemprendimientos"
	private mlistatMicroemprendimientos As New List (Of tMicroemprendimientos)
Public Property ListatMicroemprendimientos As System.Collections.Generic.List(Of tMicroemprendimientos)
Get
dim mtMicroemprendimientos As New tMicroemprendimientos
mlistatMicroemprendimientos =mtMicroemprendimientos.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatMicroemprendimientos
End Get
Set
RemoveAllListatMicroemprendimientos()
If Not (Value Is Nothing) Then
Dim otMicroemprendimientos As tMicroemprendimientos
	For Each otMicroemprendimientos in Value
		AddListatMicroemprendimientos(otMicroemprendimientos)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatMicroemprendimientos(newtMicroemprendimientos As tMicroemprendimientos)
	If (mlistatMicroemprendimientos Is Nothing) Then
		mlistatMicroemprendimientos = new System.Collections.Generic.List(Of tMicroemprendimientos)
	End If
	If Not mlistatMicroemprendimientos.Contains(newtMicroemprendimientos) Then
		mlistatMicroemprendimientos.Add(newtMicroemprendimientos)
		newtMicroemprendimientos.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatMicroemprendimientos(oldtMicroemprendimientos As tMicroemprendimientos)
	If (mlistatMicroemprendimientos.Contains(oldtMicroemprendimientos)) Then
		mlistatMicroemprendimientos.Remove(oldtMicroemprendimientos)
		oldtMicroemprendimientos.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatMicroemprendimientos()
	If Not (mlistatMicroemprendimientos Is Nothing)
		Dim tmp_listatMicroemprendimientos As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtMicroemprendimientos As tMicroemprendimientos
		For Each oldtMicroemprendimientos in mlistatMicroemprendimientos
			tmp_listatMicroemprendimientos.Add(oldtMicroemprendimientos)
		Next
	mlistatMicroemprendimientos.Clear()
	For Each oldtMicroemprendimientos in tmp_listatMicroemprendimientos
		oldtMicroemprendimientos = Nothing
	Next
	tmp_listatMicroemprendimientos.Clear()
	End If
End Sub

# End Region
# Region "tPlan_x_Persona"
	private mlistatPlan_x_Persona As New List (Of tPlan_x_Persona)
Public Property ListatPlan_x_Persona As System.Collections.Generic.List(Of tPlan_x_Persona)
Get
dim mtPlan_x_Persona As New tPlan_x_Persona
mlistatPlan_x_Persona =mtPlan_x_Persona.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatPlan_x_Persona
End Get
Set
RemoveAllListatPlan_x_Persona()
If Not (Value Is Nothing) Then
Dim otPlan_x_Persona As tPlan_x_Persona
	For Each otPlan_x_Persona in Value
		AddListatPlan_x_Persona(otPlan_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatPlan_x_Persona(newtPlan_x_Persona As tPlan_x_Persona)
	If (mlistatPlan_x_Persona Is Nothing) Then
		mlistatPlan_x_Persona = new System.Collections.Generic.List(Of tPlan_x_Persona)
	End If
	If Not mlistatPlan_x_Persona.Contains(newtPlan_x_Persona) Then
		mlistatPlan_x_Persona.Add(newtPlan_x_Persona)
		newtPlan_x_Persona.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatPlan_x_Persona(oldtPlan_x_Persona As tPlan_x_Persona)
	If (mlistatPlan_x_Persona.Contains(oldtPlan_x_Persona)) Then
		mlistatPlan_x_Persona.Remove(oldtPlan_x_Persona)
		oldtPlan_x_Persona.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatPlan_x_Persona()
	If Not (mlistatPlan_x_Persona Is Nothing)
		Dim tmp_listatPlan_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtPlan_x_Persona As tPlan_x_Persona
		For Each oldtPlan_x_Persona in mlistatPlan_x_Persona
			tmp_listatPlan_x_Persona.Add(oldtPlan_x_Persona)
		Next
	mlistatPlan_x_Persona.Clear()
	For Each oldtPlan_x_Persona in tmp_listatPlan_x_Persona
		oldtPlan_x_Persona = Nothing
	Next
	tmp_listatPlan_x_Persona.Clear()
	End If
End Sub

# End Region
# Region "tTitulo_x_Persona"
	private mlistatTitulo_x_Persona As New List (Of tTitulo_x_Persona)
Public Property ListatTitulo_x_Persona As System.Collections.Generic.List(Of tTitulo_x_Persona)
Get
dim mtTitulo_x_Persona As New tTitulo_x_Persona
mlistatTitulo_x_Persona =mtTitulo_x_Persona.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatTitulo_x_Persona
End Get
Set
RemoveAllListatTitulo_x_Persona()
If Not (Value Is Nothing) Then
Dim otTitulo_x_Persona As tTitulo_x_Persona
	For Each otTitulo_x_Persona in Value
		AddListatTitulo_x_Persona(otTitulo_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatTitulo_x_Persona(newtTitulo_x_Persona As tTitulo_x_Persona)
	If (mlistatTitulo_x_Persona Is Nothing) Then
		mlistatTitulo_x_Persona = new System.Collections.Generic.List(Of tTitulo_x_Persona)
	End If
	If Not mlistatTitulo_x_Persona.Contains(newtTitulo_x_Persona) Then
		mlistatTitulo_x_Persona.Add(newtTitulo_x_Persona)
		newtTitulo_x_Persona.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatTitulo_x_Persona(oldtTitulo_x_Persona As tTitulo_x_Persona)
	If (mlistatTitulo_x_Persona.Contains(oldtTitulo_x_Persona)) Then
		mlistatTitulo_x_Persona.Remove(oldtTitulo_x_Persona)
		oldtTitulo_x_Persona.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatTitulo_x_Persona()
	If Not (mlistatTitulo_x_Persona Is Nothing)
		Dim tmp_listatTitulo_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtTitulo_x_Persona As tTitulo_x_Persona
		For Each oldtTitulo_x_Persona in mlistatTitulo_x_Persona
			tmp_listatTitulo_x_Persona.Add(oldtTitulo_x_Persona)
		Next
	mlistatTitulo_x_Persona.Clear()
	For Each oldtTitulo_x_Persona in tmp_listatTitulo_x_Persona
		oldtTitulo_x_Persona = Nothing
	Next
	tmp_listatTitulo_x_Persona.Clear()
	End If
End Sub

# End Region
# Region "tTrabajos"
	private mlistatTrabajos As New List (Of tTrabajos)
Public Property ListatTrabajos As System.Collections.Generic.List(Of tTrabajos)
Get
dim mtTrabajos As New tTrabajos
mlistatTrabajos =mtTrabajos.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatTrabajos
End Get
Set
RemoveAllListatTrabajos()
If Not (Value Is Nothing) Then
Dim otTrabajos As tTrabajos
	For Each otTrabajos in Value
		AddListatTrabajos(otTrabajos)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatTrabajos(newtTrabajos As tTrabajos)
	If (mlistatTrabajos Is Nothing) Then
		mlistatTrabajos = new System.Collections.Generic.List(Of tTrabajos)
	End If
	If Not mlistatTrabajos.Contains(newtTrabajos) Then
		mlistatTrabajos.Add(newtTrabajos)
		newtTrabajos.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatTrabajos(oldtTrabajos As tTrabajos)
	If (mlistatTrabajos.Contains(oldtTrabajos)) Then
		mlistatTrabajos.Remove(oldtTrabajos)
		oldtTrabajos.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatTrabajos()
	If Not (mlistatTrabajos Is Nothing)
		Dim tmp_listatTrabajos As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtTrabajos As tTrabajos
		For Each oldtTrabajos in mlistatTrabajos
			tmp_listatTrabajos.Add(oldtTrabajos)
		Next
	mlistatTrabajos.Clear()
	For Each oldtTrabajos in tmp_listatTrabajos
		oldtTrabajos = Nothing
	Next
	tmp_listatTrabajos.Clear()
	End If
End Sub

# End Region
# Region "tTrabajos_Domesticos"
	private mlistatTrabajos_Domesticos As New List (Of tTrabajos_Domesticos)
Public Property ListatTrabajos_Domesticos As System.Collections.Generic.List(Of tTrabajos_Domesticos)
Get
dim mtTrabajos_Domesticos As New tTrabajos_Domesticos
mlistatTrabajos_Domesticos =mtTrabajos_Domesticos.TraerFiltradoListOf("IdPersona",Me.IdPersona)
Return mlistatTrabajos_Domesticos
End Get
Set
RemoveAllListatTrabajos_Domesticos()
If Not (Value Is Nothing) Then
Dim otTrabajos_Domesticos As tTrabajos_Domesticos
	For Each otTrabajos_Domesticos in Value
		AddListatTrabajos_Domesticos(otTrabajos_Domesticos)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatTrabajos_Domesticos(newtTrabajos_Domesticos As tTrabajos_Domesticos)
	If (mlistatTrabajos_Domesticos Is Nothing) Then
		mlistatTrabajos_Domesticos = new System.Collections.Generic.List(Of tTrabajos_Domesticos)
	End If
	If Not mlistatTrabajos_Domesticos.Contains(newtTrabajos_Domesticos) Then
		mlistatTrabajos_Domesticos.Add(newtTrabajos_Domesticos)
		newtTrabajos_Domesticos.tPersonas = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatTrabajos_Domesticos(oldtTrabajos_Domesticos As tTrabajos_Domesticos)
	If (mlistatTrabajos_Domesticos.Contains(oldtTrabajos_Domesticos)) Then
		mlistatTrabajos_Domesticos.Remove(oldtTrabajos_Domesticos)
		oldtTrabajos_Domesticos.tPersonas = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatTrabajos_Domesticos()
	If Not (mlistatTrabajos_Domesticos Is Nothing)
		Dim tmp_listatTrabajos_Domesticos As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtTrabajos_Domesticos As tTrabajos_Domesticos
		For Each oldtTrabajos_Domesticos in mlistatTrabajos_Domesticos
			tmp_listatTrabajos_Domesticos.Add(oldtTrabajos_Domesticos)
		Next
	mlistatTrabajos_Domesticos.Clear()
	For Each oldtTrabajos_Domesticos in tmp_listatTrabajos_Domesticos
		oldtTrabajos_Domesticos = Nothing
	Next
	tmp_listatTrabajos_Domesticos.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tPersonas)
            Dim dtDatos As DataTable
            Dim listatPersonas As New List(Of tPersonas)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtPersonas As New tPersonas
				mtPersonas.IdPersona = CType(dr.Item("IdPersona"),Integer)
				mtPersonas.Traer_objeto()
            	listatPersonas.Add( mtPersonas)
            Next dr
            'finder.Lista = listatPersonas
            'Return CType(finder.find(Of tPersonas)(ClassFinder.Spec(Of tPersonas).baja), Global.System.Collections.Generic.List(Of Global.VB_ObjetosdeNegocio.BO.tPersonas))
Return listatPersonas
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tPersonas)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatPersonas As New List(Of tPersonas)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtPersonas As New tPersonas
				mtPersonas.IdPersona = CType(dr.Item("IdPersona"),Integer)
				mtPersonas.Traer_objeto()
            	listatPersonas.Add( mtPersonas)
            Next dr
            'finder.Lista = listatPersonas
            'Return CType(finder.find(Of tPersonas)(ClassFinder.Spec(Of tPersonas).baja), Global.System.Collections.Generic.List(Of Global.VB_ObjetosdeNegocio.BO.tPersonas))
Return listatPersonas
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tPersonas)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatPersonas As New List(Of tPersonas)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtPersonas As New tPersonas
				mtPersonas.IdPersona = CType(dr.Item("IdPersona"),Integer)
				mtPersonas.Traer_objeto()
            	listatPersonas.Add( mtPersonas)
            Next dr
            'finder.Lista = listatPersonas
            'Return CType(finder.find(Of tPersonas)(ClassFinder.Spec(Of tPersonas).baja), Global.System.Collections.Generic.List(Of Global.VB_ObjetosdeNegocio.BO.tPersonas))
Return listatPersonas
End Function
# End Region

End Class
End Namespace
